7000 REM ALPHA ORDER BY DISTR COUNTING-3 DEEP*BY TOM FOSTER*
7001 PRINT:PRINT:PRINT:PRINT"PLEASE WAIT ABOUT 1 MINUTE WHILE";
7003 PRINT" THE  FILE IS ALPHABETIZED.   *THANK YOU*   "
7010 DIMR(26),AA$(300),BB$(300),CC(300)
7020 FORI=1TOT:L=ASC(MID$(A$(I),3,1))-64
7025 IFL=-32THENL=0
7030 R(L)=R(L)+1
7035 NEXT
7040 FORK=1TO26:R(K)=R(K)+R(K-1):NEXT
7045 FORJ=TTO1STEP-1:L=ASC(MID$(A$(J),3,1))-64
7050 IFL=-32THENL=0
7055 I=R(L):AA$(I)=A$(J):BB$(I)=B$(J):CC(I)=C(J)
7057 R(L)=I-1
7058 NEXT
7060 FORI=1TOT:PRINTAA$(I):NEXT:REM * IF YOU WANT TO SEE FIRST CYCLE *
7101 PRINT:PRINT:PRINT"IT WON'T BE LONG NOW"
7110 DIMRB(26),AB$(300),BC$(300),CD(300)
7120 FORI=1TOT:LB=ASC(MID$(AA$(I),2,1))-64
7125 IFLB=-32THENLB=0
7130 RB(LB)=RB(LB)+1
7135 NEXT
7140 FORKB=1TO26:RB(KB)=RB(KB)+RB(KB-1):NEXT
7145 FORJB=TTO1STEP-1:LB=ASC(MID$(AA$(JB),2,1))-64
7150 IFLB=-32THENLB=0
7155 I=RB(LB):AB$(I)=AA$(JB):BC$(I)=BB$(JB):CD(I)=CC(JB)
7157 RB(LB)=I-1
7158 NEXT
7160 FORI=1TOT:PRINTAA$(I):NEXT:REM * IF YOU WANT TO SEE SECOND CYCLE *
8001 PRINT:PRINT:PRINT"I'M ALMOST FINISHED."
8010 DIMS(26),AC$(300),BD$(300),CE(300)
8020 FORI=1TOT:M=ASC(AB$(I))-64
8025 IFM=-32THENM=0
8030 S(M)=S(M)+1
8035 NEXT
8040 FORKK=1TO26:S(KK)=S(KK)+S(KK-1):NEXT
8045 FORJJ=TTO1STEP-1:M=ASC(AB$(JJ))-64
8050 IFM=-32THENM=0
8055 I=S(M):AC$(I)=AB$(JJ):BD$(I)=BC$(JJ):CE(I)=CD(JJ)
8057 S(M)=I-1
8058 NEXT
8060 FORI=1TOT:PRINTAC$(I):NEXT:REM * IF YOU WANT TO SEE FINAL CYCLE *
8070 RETURN